﻿Public Class clsSubCategory
    Inherits clsBLBase

    ''' <summary>
    ''' Constructor truyền connection string vào BL
    ''' </summary>
    ''' <param name="connectionString">connection string muốn truyền xuống BL</param>
    ''' <remarks>Nguyễn Huy Thường added on 08/07/2012</remarks>
    Public Sub New(ByVal connectionString As String)
        MyBase.New(connectionString)
    End Sub

#Region "Overrides"

    ''' <summary>
    ''' Đặt tên cho bảng hiện đang làm việc là SubCategory
    ''' </summary>
    ''' <remarks>Nguyễn Huy Thường added on 08/06/2011</remarks>
    Protected Overrides Sub SetTableName()
        MyBase.TableName = dsFMS.SubCategory.TableName
    End Sub

    ' ''' <summary>
    ' ''' Sub tạo mới một bản ghi trống trên dataset
    ' ''' </summary>
    ' ''' <returns>Trả lại một bản ghi trống</returns>
    ' ''' <remarks>Nguyễn Huy Thường added on 24/10/2010</remarks>
    'Public Overrides Function InitNewRow() As System.Data.DataRow
    '    Dim drNewRow As XHGMDataSet.CategoryRow = dsXHGM.Category.NewCategoryRow
    '    With drNewRow
    '        .CategoryID = Guid.NewGuid
    '        .CategoryName = ""
    '        .SetDescriptionNull()
    '        .Status = True
    '    End With
    '    dsXHGM.Category.Rows.Add(drNewRow)
    '    Return drNewRow
    'End Function
#End Region
End Class
